home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / e / epp_v1_1.lha / EPP / PModules / cSkipToChar.e < prev    next >
Text File  |  1993-06-26  |  240b  |  12 lines
  1. OPT TURBO
  2.  
  3. PROC cSkipToChar (char, pos : PTR TO CHAR)
  4.   /* Finds the specified character in theString and returns its position. */
  5.   WHILE pos []
  6.     IF pos [] = char THEN RETURN pos
  7.     INC pos
  8.   ENDWHILE
  9. ENDPROC  pos
  10.   /* cSkipToChar */
  11.  
  12.